home *** CD-ROM | disk | FTP | other *** search
/ Nebula 1 / Nebula One.iso / Utilities / Unix / satan-1.1.1 / perl / drop_fact.pl < prev    next >
Text File  |  1995-04-10  |  1KB  |  73 lines
  1. #
  2. # Usage: $code = &drop_fact()
  3. # 
  4. # Applies the rules in $drop_fact_files to the global $target..$text 
  5. # variables. The result value is nonzero if the record should be ignored.
  6. # 
  7. # Standalone usage: perl drop_fact.pl [satan_record_files...]
  8. # 
  9.  
  10. $drop_fact_files = "rules/drop";
  11.  
  12. sub build_drop_fact{
  13.     local($files) = @_;
  14.     local($code);
  15.  
  16.     $code = "sub drop_fact {\n";
  17.  
  18.     foreach $file (split(/\s+/, $files)) {
  19.     open(RULES, $file) || die "cannot open $file: $!";
  20.     while (<RULES>) {
  21.         chop;
  22.         while (/\\$/) {
  23.         chop;
  24.         $_ .= <RULES>;
  25.         chop;
  26.         }
  27.         s/#.*$//;
  28.         next if /^\s*$/;
  29.         s/@/\\@/g;
  30.         $code .= "\tif ($_) {\n\t\treturn 1;\n\t}\n";
  31.     }
  32.     close(RULES);
  33.     }
  34.     $code .= "\treturn 0;\n}\n";
  35.     return $code;
  36. }
  37.  
  38. #
  39. # Some scaffolding for stand-alone operation
  40. #
  41. if ($running_under_satan) {
  42.     eval &build_drop_fact($drop_fact_files);
  43.     die "error in $drop_fact_files: $@" if $@;
  44. } else {
  45.     $running_under_satan = -1;
  46.  
  47.     require 'perl/misc.pl';
  48.  
  49.     #
  50.     # Build satan rules and include them into the running code.
  51.     #
  52.     $code = &build_drop_fact($drop_fact_files);
  53.     print "Code generated from $drop_fact_files file:\n\n";
  54.     print $code;
  55.     eval $code;
  56.     die "error in $drop_fact_files: $@" if $@;
  57.  
  58.     #
  59.     # Apply rules.
  60.     #
  61.     print "\nApplying rules to all SATAN records...\n";
  62.     while (<>) {
  63.     chop;
  64.     if (&satan_split($_)) {
  65.         warn "Ill-formed fact: $_\n";
  66.     } elsif (&drop_fact()) {
  67.         print "Dropped: $_\n";
  68.     }
  69.     }
  70. }
  71.  
  72. 1;
  73.